home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Creative Computers
/
Creative Computers CD-ROM, Volume 1 (Legendary Design Technologies, Inc.)(1994).iso
/
commercial
/
visual_inspirations
/
mlm
/
rexx
/
ppageinfo.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1994-11-17
|
4KB
|
156 lines
/*
PPageInfo.Rexx
Written By J.L. White
(C) 1993 Merlin's Software
For Use With Mailing List Manager & Professional Page
Create Info Data Sheets From Database
*/
Font = "Times"
FontSize1 = 14
FontSize2 = 11
FontSize3 = 8
RecordsPerPage1 = 4
RecordsPerPage2 = 10
RecordsPerPage3 = 21
CR = '0a'x
arg Total
call SetUp
call ppm_PPageToFront()
call ColumnAndText
call PickPrint
call ppm_PPageToBack()
call ppm_New()
exit
SetUp:
FileName = "RAM:MLM.Temp"
call ppm_New()
ppm_CreatePage(1,1,1,1,0)
ppm_DeleteBox(1)
call ppm_SetFont(Font)
call ppm_SetStyle(B)
call ppm_SetJustification(0)
return
OneColumn:
Numeric Digits 3
TempTotal = Total / RecordsPerPage1
Numeric Digits 1
TotalPages = Total / RecordsPerPage1
if TempTotal > TotalPages then TotalPages = TotalPages + 1
Box1 = ppm_CreateBox(0.3000,0.2600,7.9000,10.4500,0)
BoxA = Box1
do i = 2 to TotalPages
ppm_CopyPage(1,Total,1)
ppm_GotoPage(i)
BoxB = ppm_SelectBox(i)
ppm_LinkBox(BoxA,BoxB)
BoxA = BoxB
end
ppm_LinkBox(BoxA,i)
call ppm_SetSize(FontSize1)
return
TwoColumns:
Numeric Digits 3
TempTotal = Total / RecordsPerPage2
Numeric Digits 1
TotalPages = Total / RecordsPerPage2
if TempTotal > TotalPages then TotalPages = TotalPages + 1
Box1 = ppm_CreateBox(0.3000,0.4200,3.8500,10.1600,0)
Box2 = ppm_CreateBox(4.3800,0.4200,3.8500,10.1600,0)
ppm_LinkBox(Box1,Box2)
ppm_SelectBox(Box1)
BoxA = Box2
do i = 2 to TotalPages
ppm_CopyPage(1,Total,1)
ppm_GotoPage(i)
BoxB = ppm_DocNextBox(BoxA)
ppm_LinkBox(BoxA,BoxB)
NewBox = ppm_DocNextBox(BoxB)
ppm_LinkBox(BoxB,NewBox)
BoxA = NewBox
end
call ppm_SetSize(FontSize2)
return
ThreeColumns:
Numeric Digits 3
TempTotal = Total / RecordsPerPage3
Numeric Digits 1
TotalPages = Total / RecordsPerPage3
if TempTotal > TotalPages then TotalPages = TotalPages + 1
Box1 = ppm_CreateBox(0.3000,0.3500,2.5200,10.3500,0)
Box2 = ppm_CreateBox(2.9750,0.3500,2.5200,10.3500,0)
Box3 = ppm_CreateBox(5.6700,0.3500,2.5200,10.3500,0)
ppm_LinkBox(Box1,Box2)
ppm_LinkBox(Box2,Box3)
ABox = Box3
do i = 2 to TotalPages
ppm_CopyPage(1,Total,1)
ppm_GotoPage(i)
BBox = ppm_DocNextBox(ABox)
ppm_LinkBox(ABox,BBox)
CBox = ppm_DocNextBox(BBox)
ppm_LinkBox(BBox,CBox)
NewBox = ppm_DocNextBox(CBox)
ppm_LinkBox(CBox,NewBox)
ABox = NewBox
end
call ppm_SetSize(FontSize3)
return
ColumnAndText:
NumColumns=ppm_Inform(3,"Pick Number Of Columns To Use","THREE","TWO","ONE")
if NumColumns = 0 then call ThreeColumns
if NumColumns = 1 then call TwoColumns
if NumColumns = 2 then call OneColumn
ppm_GotoPage(1)
ppm_SelectBox(Box1)
ppm_ImportText(Box1,FileName)
return
PickPrint:
TypePrint=ppm_Inform(2,"Postscript Or Preference Printer","PREFERENCE PRINTER","POSTSCRIPT")
if TypePrint = 1 then call PostPrint
if TypePrint = 0 then call PrefPrint
return
PostPrint:
OutPut = ppm_Inform(3,"Select Type Of Output To Use?","DISK","SER:","PAR:");
if OutPut = 2 then TypeOutPut = "PAR:"
if OutPut = 1 then TypeOutPut = "SER:"
if OutPut = 0 then do
TypeOutPut = ppm_GetUserText(50,"Enter Name For Output File!")
if TypeOutPut = "" then call NoPrint
end
call ppm_SetPSOutput(TypeOutPut)
Manual = ppm_Inform(2,"Manual Feed ON-OFF?","OFF","ON")
call ppm_SetPSManFeed(Manual)
NumCopy = ppm_GetUserText(3,"Enter # Of Copies To Print!")
if NumCopy < 1 then call NoPrint
if NumCopy > 0 then ppm_PrintDocPS(NumCopy,1)
return
PrefPrint:
Eject=ppm_Inform(2,"Eject Page ON-OFF?","OFF","ON")
call ppm_SetDMEject(Eject)
NumCopy = ppm_GetUserText(3,"Enter # Of Copies To Print!")
if NumCopy < 1 then call NoPrint
call ppm_PrintDocDM(NumCopy,1)
return
NoPrint:
ppm_Inform(1,"Printing Has Been Cancelled!","OK")
call ppm_PPageToBack()
call ppm_New()
exit
return